*&--------------------------------------------------------------------*
*& Report ZALVFLIGHT                                                  *
*&--------------------------------------------------------------------*
report zalvflight.

include zalvflight_classes.

data: lr_controller type ref to lcl_planner_ctrl.

selection-screen begin of block blk_main with frame.
   selection-screen begin of line.
      selection-screen comment 1(5) text-t02.
      parameters p_from type s_airport obligatory.
      selection-screen comment 15(15) text-t03.
      parameters p_dptdat type s_date.
   selection-screen end of line.

   selection-screen begin of line.
      selection-screen comment 1(5) text-t04.
      parameters p_to type s_airport obligatory.
      selection-screen comment 15(15) text-t05.
      parameters p_retdat type s_date.
   selection-screen end of line.
selection-screen end of block blk_main.

load-of-program.
   create object lr_controller.

start-of-selection.
   call method lr_controller->do_display_report
      exporting
         im_from        = p_from
         im_depart_date = p_dptdat
         im_to          = p_to
         im_return_date = p_retdat.